clear all; close all; clc;

R=240;
C=33e-12;
L=100e-6;
j=sqrt(-1);

tau=R*C
T = tau/100;
t = 0:T:(3*tau);
lt = length(t);
K(1)=1;

for k=2:lt;
    K(k)=(1/(j*k*C))/(R+j*k*L+1/(j*k*C))
  %  K(k)=(1-k^2*L*C)/(2*j*k*R*L+1-k^2*L*C);   
end
x=abs(K);
plot(t,x);



